home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Games / Solitaire / Sources / Pyramid / WasteCardPileDelegate.m < prev   
Text File  |  1994-01-12  |  4KB  |  156 lines
  1. /* indent:4  tabsize:8  font:fixed-width */
  2.  
  3.  
  4. #import "WasteCardPileDelegate.h"
  5. #import "../Solitaire/CardSet.subproj/cardset.h"
  6. #import "Pyramid.h"
  7.  
  8. @implementation WasteCardPileDelegate
  9.  
  10. /*--------------------------------------------------------------------------
  11. |
  12. |    - setDiscardLeft:left discardRight:right
  13. | 
  14. |    returns: (id) self
  15. |
  16. |---------------------------------------------------------------------------
  17. |
  18. |    Set connections to other piles.
  19. |    
  20. \--------------------------------------------------------------------------*/
  21.  
  22. - setDiscardLeft:left discardRight:right
  23. {
  24.     discardCardPileViewL = left;
  25.     discardCardPileViewR = right;
  26.     return self;
  27. }
  28.  
  29.  
  30. /*--------------------------------------------------------------------------
  31. |
  32. |    - (BOOL)canAcceptPile:aCardPile from:sender in:wasteCardPileView
  33. |
  34. |    returns: (BOOL)    YES if this pile will accept the cards dropped on it
  35. |
  36. |         (BOOL)    NO if this pile will not accept the dropped cards
  37. |
  38. |---------------------------------------------------------------------------
  39. |
  40. |    Called by the WasteCardPileView when a card pile wants to be 
  41. |    dropped on this pile.
  42. |    
  43. \---------------------------------------------------------------------------*/
  44.  
  45. - (BOOL)canAcceptPile:aCardPile from:sender in:wasteCardPileView
  46. {
  47.     id card1 = [aCardPile cardAt:CS_TOP];
  48.     id card2 = [[wasteCardPileView cardPile] cardAt:CS_TOP];
  49.  
  50.     /*----------------------------------------------------------------------
  51.     |
  52.     |    If the card being dropped and the card on top of the
  53.     |    pile add to thirteen, allow the card to be dropped.
  54.     |    Both cards will be moved to the discardCardPiles in
  55.     |    the acceptPile delegate method.
  56.     |
  57.     \---------------------------------------------------------------------*/
  58.  
  59.     if (card1 && card2 && ([card1 value] + [card2 value] == 11))
  60.     {
  61.     return YES;
  62.     }
  63.     else
  64.     {
  65.         return NO;
  66.     }
  67. }
  68.  
  69.  
  70. /*---------------------------------------------------------------------------
  71. |
  72. |    - acceptPile:aCardPile in:wasteCardPileView
  73. |
  74. |    returns:        (id)        self
  75. |
  76. |----------------------------------------------------------------------------
  77. |
  78. |    Called by WasteCardPileView after cards have been successfully 
  79. |    added to the pile as a result of cards being dropped on it.
  80. |    
  81. \---------------------------------------------------------------------------*/
  82.  
  83. - acceptPile:aCardPile in:wasteCardPileView
  84. {
  85.     id leftDiscardPile = [discardCardPileViewL cardPile];
  86.     id rightDiscardPile = [discardCardPileViewR cardPile];
  87.     id pile = [wasteCardPileView cardPile];
  88.     id aCard;
  89.  
  90.     aCard = [pile cardAt:CS_TOP];
  91.     [pile removeCard:aCard];
  92.     [leftDiscardPile addCard:aCard];
  93.     aCard = [pile cardAt:CS_TOP];
  94.     [pile removeCard:aCard];
  95.     [rightDiscardPile addCard:aCard];
  96.  
  97.     [discardCardPileViewL display];
  98.     [discardCardPileViewR display];
  99.     [wasteCardPileView display];
  100.  
  101.     [SolGameController() checkForWin];
  102.     return self;
  103. }
  104.  
  105.  
  106. /*--------------------------------------------------------------------------
  107. |
  108. |    - (BOOL) draggedPile:aCardPile from:wasteCardPileView
  109. |
  110. |    returns:    (BOOL)    YES if it is legal to drag the card.
  111. |
  112. |            (BOOL)    NO if it is not legal to drag the card.
  113. |
  114. |---------------------------------------------------------------------------
  115. |
  116. |    Called by the wastePileCardView when the user tries to drag a card.
  117. |    
  118. \--------------------------------------------------------------------------*/
  119.  
  120. - (BOOL)draggedPile:aCardPile from:wasteCardPileView
  121. {
  122.     return YES;
  123. }
  124.  
  125.  
  126. /*--------------------------------------------------------------------------
  127. |
  128. |    doubleClickedCard:aCard in:aCardPileView
  129. |
  130. |    returns: (id) self
  131. |
  132. |---------------------------------------------------------------------------
  133. |
  134. |    Double clicked on a card; discard if it is a King.
  135. |    
  136. \--------------------------------------------------------------------------*/
  137.  
  138. - doubleClickedCard:aCard in:aCardPileView
  139. {
  140.     id cardPile = [aCardPileView cardPile];
  141.     
  142.     if (aCard && (aCard == [cardPile cardAt:CS_TOP]) && 
  143.                                                [aCard value] == CS_KING)
  144.     {
  145.         [[discardCardPileViewL cardPile] addCard:[cardPile cardAt:CS_TOP]];
  146.     [cardPile removeCard:[cardPile cardAt:CS_TOP]];
  147.     [aCardPileView display];
  148.     [discardCardPileViewL display];
  149.     [SolGameController() checkForWin];
  150.  
  151.     }
  152.     return self;
  153. }
  154.  
  155. @end
  156.